home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 September / 64er_Magazin_89-09_1989_Markt__Technik_de_Side_A.d64 / body building (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  991b  |  21 lines
  1. 1 data0,0,0,0,192,96,1,64,80,1,64,80,1,64,80,2,74,72,2,91,72,2,91,72,2,123,200
  2. 2 data2,10,8,2,10,8,2,17,8,2,17,8,1,32,144,1,32,144,1,32,144,1,32,144,3,251,248
  3. 3 data3,251,248,3,251,248,3,251,248
  4. 4 poke53280,0:poke53281,3:print"[147][144]c64 body building   '89 by c.kammermeyer"
  5. 5 print"":fori=1to20:print"[195][178]";:next
  6. 6 print"[144] 06 05 [158]04 [144]03 02 01 00 01 02 03 [158]04 [144]05 06  port 1";tab(33)"port 2"
  7. 7 poke2040,11:poke53269,1:f=155:pa=20:pb=20:v=53248:s=54200
  8. 8 forx=0to62:read d:poke704+x,d:next:pokev+23,1:pokev+29,1
  9. 9 j1=peek(56321):j2=peek(56320):ifo=1 then goto 12
  10. 10 ifj1=a then f=f-5:pa=pa+1:pb=pb-1:goto15
  11. 11 ifj1<>255then a=j1:o=1:f=f+5:pa=pa-1:pb=pb+1:goto 15
  12. 12 ifj2=b then f=f+5:pb=pb+1:pa=pa-1:goto15
  13. 13 ifj2<>127then b=j2:o=0:f=f-5:pb=pb-1:pa=pa+1:goto 15
  14. 14 o=0:goto 9
  15. 15 pokev+39,8:poke53249,145:poke53248,f:print"";tab(10)"   ";tab(37)"   "
  16. 16 iff>252 then a$="player 1":goto 19
  17. 17 iff<60 then a$="player 2":goto 19
  18. 18 print"[156]player 1:";pa;tab(27)"player 2:";pb:goto 9
  19. 19 pokes+96,15:pokes+78,240:fori=1to80:pokes+76,33:pokes+73,33:next:pokes+76,0
  20. 20 pokes+73,0:print"[144]";tab(11)"winner:";a$:forx=1to6000:nextx:run
  21.